The Uninvited Press Kit/THE UNINVITED.iso/pc/program.dxr/Internal_36_Flash Controller.ls

Text File | 2008-12-30 | 545 b | 28 lines

property gowhere, spriteNum, mySprite

on getBehaviorDescription me
  return "Flash Controller Goto" & RETURN & RETURN & "Use "
end

on getBehaviorTooltip me
  return "Use with any sprite member."
end

on getPropertyDescriptionList me
  xlist = [:]
  addProp(xlist, #gowhere, [#comment: "Navigate Where:", #format: #marker, #default: #string])
  return xlist
end

on beginSprite me
  mySprite = sprite(me.spriteNum)
end

on exitFrame me
  if mySprite.frame < mySprite.member.frameCount then
    go(the frame)
  else
    go(gowhere)
  end if
end